Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/MOVIES.DIR/00058_Script_qt

Text File | 1995-11-15 | 602b | 34 lines

-- parent script
--  button trios
property myChannel, myScript, defaultScript
on birth me,sp
  set myChannel to integer(sp)
  set myScript to "playMovie"&&myChannel
  set defaultScript to myScript
  return me
end

on rollo me
  --set the cursor of sprite myChannel to [54,55]
end

on press me
  --pauseMovie
  do myScript
end

on norm me
  set the cursor of sprite myChannel to -1
end

on doScript me
  put "movie clicked"
  do myScript
end

on setScript me,newScript
  if newScript = "reset" then
    set myScript to defaultScript
  else set myScript to newScript
end